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MODULE CVTNAF ( AUytLe .Fonvert Network Proxy File’ 
IDENT = 04-000" 
BEGIN 


' 
i geeeeeeeeeeeeeneeeeeeeeeeeeeeeneeeeeeteeeeeeeeeeeeeneeeeeeeeeeeneeeeeeeneeer 


'® ® 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. . 
ie bad SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND cop ite * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE ao yoneue NOT fees THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
td ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. * 
® 
it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
i 
Le etelhniaiientiendidedidelinieeathainatehatiniiebdigadineeséiahieinieadiaambbiatieniichnademiaail 
i 


'e4¢ 

FACILITY: Convert User Authorization File 

i ABSTRACT: Converts a Release 3 compatible NETNAF.DAT to Release 4 format. 
i The new NETNAF.DAT offsets are assumed. The old offsets have 
been renamed to ONF$etc... 

ENVIRONMENT: Release 3 to Release 4 conversion procedures 

AUTHOR: Chris Hume, CREATION DATE: 22-May-1979 

MODIFIED BY: 

i v03-002 acense? Andrew C. Goldstein, 11-Jan-1984 21:34 
Move ONFDEF to LIBS 

i v03~-001 ACG0385 Andrew C. Goldstein, 5-Jan-1984 19:43 

2 Crib from CVTUAF utility. 

ie 


LIBRARY BaF tarde: LJ8"; 
REQUIRE ‘LIBS:ONFDEF’ 


CRO 
RETURN_IF _ERRORC) = 


V4.0-74 
TER: LUAF SRC CVTNAF .B32; . 


N 13 


PADDED_TO COUNTEDE (OLENGTH, ONAME, NLENGTH, NNAME) = 
LOCAL COUNT, P : REF VECTOR C,BYTE); 


CVTNAF Convert Network Proxy File 16-Sep- 4:17 VAX-11 Bliss-32 V4. Page 
vou~000 / eet ae Ee tS nn ee, 
; 58 m 0101 1 BEGIN 

; M0102 1 LOCAL RMSERR 

: 60 " (IF NOT < RRCERR = ZREMAINING) TKEN RETURN .RMSERR) 

: 6¢ 5 ‘' 

; & 1 5 1 LITERAL 

3 9? : 3 } TRUE = 1; 

.— «7 110 1 MACRO 

: 68 mO111 1 COPY_PADDED (NAME) 

: 69 a 18 1 COPY “PADDED (XEXPLODE (NAME)) 
REY ‘ 

i moOllS 1 COPY_PADDEDI (C15 2» C34 ths 5) 2 

a of 116 1 ADDED2 (XSTRING (*ONFSS', ZREMAINING) , 

> 7 mO117 1 ZSTRING ('ONFS', C5, ZREMAINING) , 
= M0118 1 XSTRING ('NAFSS', ZREMAINING) . 

> 76 M0119 1 XSTRING ('NAF$', C5, XREMAINING)) 
on aoe Be : 

ro Pe x 8 é 1 COPY -PADDED D2 OLENGTH, ONAME, NLENGTH, NNAME) = 

; 80 ot ; HSCOPY (% ZNAME (OLENGTH), ONFBUFCXNAME (ONAME)J, 
noe M 91 5 1 <NAAE (NLENGTH), NAFBUFCXNAME (NNAME) J) 
: Bi 01 $ i ” 

>: BS M0128 1 COPY COUNTED (NAME) = 

: 86 M0129 1 COPY_COUNTED1 (XEXPLODE (NAME)) 

ic Bees Bey 3 

: 89 m 01 ; 1 COPY COUNTED (C1 2, C3, C4, C5) = 

> 90 m 01 1 OPY_COUNTED2 (ZSTRING (*ONFSS' TREMAINING) 

: 91 M0134 1 ZSTRING ('ONFS' és NING), 

; 9 M0135 1 XSTRING ('NAFSS', ZhEMA 

: 9 M01 6 1 ZSTRING ('NAFS', C5, REMAINING) ) 
nS ‘ 

: 9 m 0139 1 COPY_COUNTED2 (OLENGTH, ONAME NLENGTH, NNAME ) 

; 14 4 6140 CHSCOPY ( (, VECTOR CONFGUFEXNAME (ONAME)), O;, BYTE+1, ONFBUFCENAME (ONAME) J, 
: 22 6 14 XNAME (NLENGTH), NAFBUFCXZNAME (NNAME) J) 
: 191 m 0144 1 PADDED_TO. COUNTED (NAME) = 

: 4 2 M0145 1 PADDED_70_ COUNTED] (XEXPLODE (NAME?) 
Me . 

: 105 " 148 1 PADDED_TO counTegt (C1 3, C3. C4, C5) = 

; 106 M0149 1 PADDED_TO_COUNTED2 (ZSTRING (*ONFSS', ZREMAINING), 
m 0150 1 ZSTRING (‘ONFS', C5, XREMAINING), 
> 108 m 0151 1 ZSTRING ('NAFSS', SREMAINING) 

: 109 136 1 ZSTRING ("NAFS', C5, ZREMAINING)) 
> 110 153 1 %, 

> 111 154 1 

fog 1% | 

: 194 133 1 
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-Sep-1 
P = at Aber (ONAME)] + XNAME (OLENGTH); 
TIL .PL-1J NEQ ‘ ' 


UN 
es -P LEQA ONFBUFCZNAME (ONAME) J 


;, BYTE] = .COUNT; 
CHSCOPY (, COUNT, ONFBUFCZNAME (ONAME), 


%NAME (NLENGTH)=1, NAFBUFCXNAME (NNAME)J+1) 


EXTERNAL ROUTINE 


LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL); 


NAFBUF: BLOCKCNAFSC_LENGTH, BYTE), 
GNFBUF: BLOCKLONFSC_LENGTH, BYTEJ, 


werner SXABKEY ( ! XAB for UIC key 


E ' alternate key 

POSO = SBYTEOFFSET (NAF$T_LOCALUSER), 

$1Z0 = NAFS$S_LOCALUSER, 

FLG = (CHG, DUP), 

KNM = UPLIT BYTE ("Local Username ") 
NAFKEYO: S$XABKEY ( ' XAB for USERNAME key 

KREF = 0, ' primary key 

POSO = SBYTEOFFSET (NAFST_REMNAME), 

SI1Z0 = NAFSS_REMNAME, 

KNM = UPLIT BYTE ("Remote Node Name and Username ee 

NXT = NAFKEY1 
NAFALL: $XABALL ( ' XAB for NAF allocation 

AOP = CBT, 

BKZ = 4, 

NXT = NAFKEYO 


NAFPRO: $XABPRO ( 
PRO = (RWED, RWED, RWE,), 
NXT = NAFALL 


XAB for file protection 
deny world access 


NAFFAB: S$FAB ( ! FAB for work file 
FAC = PUT, ' access types 
FNM = ‘NEWNAF’, ! temporary file name 
DNM = '.DAT', 
SHR = NIL, 
ORG = IDX, ! indexed operations 
RFM = FIX 
MRS = NAFSC_LENGTH, ! maximum record size 
KAS = NAFPRO ' file protection XAB 


Yt et Page 
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s 1 : 7 93334508 DT SKSVMSHASTERSCUAFSRCICVTNAF .B32:1 ees 


ROUTINE MAIN = 
BEGIN 


v04-000 -Sep-1 
76 p NAFRAB: $RAB ( ! RAB for temporary file 
17 P RSZ = NAFSC_LENGTH, 
174 P RBF = NAFBUF, 
175 P FAB = NAFFAB 
i , 
178 P ONFKEY1: SXABKEY ( ! XAB to read old NAF key 
179 P KREF = 1 
181 
18¢ 4 ONFKEYO: SXABKEY ( ! XAB to read old NAF key 
184 P NXT = ONFKEY1 
I 3 
187 P ONFFAB: SFAB ( ' FAB for old NAF file 
188 P FAC = GET, ! read only 
189 P FNM = ‘OLDNAF', 
190 P DNM = ‘.DAT' 
19% P XAB = ONFKEYO 
13 ‘i 
19 P ONFRAB: $RAB ( ' RAB for old NAF 
19 P RAC = SEQ, 
19 P KRF = Q, ! key of reference 
19 P UBF = ONFBUF, 
19 P USZ = ONFSC_LENGTH, 
19 P FAB = ONFFAB 
0 
0 
0 
0 
0 


RRAW ASS UHR 


Open the old NAF for input 


RETURN_IF_ERROR ($OPEN (FAB = ONFFAB)); 
RETURN-IF-ERROR (SCONNECT (RAB = ONFRAB)); 


i Validate the keys of the NAF, checking if it is a new format, 
and then for old format validity. 


IF .ONFKEYOCXABSW_POSO] EQL SBYTEOFFSET (NAFST_REMNAME) 
AND .ONFKEYO[X I F . NAFSS N 
L.. SBYTEOFFSET (NAFST_LOCALUSER) 
EQL NAFSS_LOCALUSER 


POIPOIPIPOPIPIDPINININIPIPIPININININPININININININPINPIPIPYPUPYUPUNIPONNPPoPofnynyd 


DPEP_DP AED GAs Be Be BS BB EE NWN NAINA PIPPI NIPUNINI NN Ss 


WONOULSWH—-OV0OOnN 


BEGIN 
LIBSPUT_OUTPUT (SDESCRIPTOR (‘Proxy file is already converted')); 
RETURN STS$M_INHIB_MSG; 


N 
-ONF KE YO XABSW_POSO] NEQ SBYTEOFFSET (ONFST_REMNAME) 
120] NEQ ONT $S_RERNARE 


IF 
OR .ONFKEY 
NEQ SBYTEOFFSET (ONFST_LOCALUSER) 


OR .ONFKEY1 


XAB$B~S 
XABSW_P 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
LOCAL 
RMSERR; 
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Pi gO REVI RASSS S120 NEQ ONF$S_LOCALUSER 


Ol issese v4. 


Ss 


BEGIN 

LIBSPUT_OUTPUT (SDESCRIPTOR ("Proxy file has invalid format')); 

RETURN STSS$M_INHIB_MSG; 

END; 
| Create the new NAF. 
NAFALLCXABSL_ALQ] = .ONFFABCFABS$L_ALQ) 
RETURN_IF_ERROR (S$CREATE (FAB = NAFFAB 
RETURN-IF-ERROR (S$CONNECT (RAB = NAFRA 


ts (RMSERR = $GET (RAB = ONFRAB)) 


2 + .ONFFABLFABSL_ALQ); 


j; 


—e ™ 


) 
B 


BEGIN 
CHSFILL (0, NAFS$ 


eww ofolelolololeieloielelolelolo) 
OONAVE WR" OOONOULS WT 


FUN" OOONAUES WN “OOONOUS WHO” 
See ees aoe bie en ei dat iaaeint 


POPIPIPUNINININIPTE Pe nonononunofponoponoronosferforony 


SEV BB BS BS BB EE WNW 


C LENGTH, NAFBUF); 
COPY_PADDED ('NAFST_NODE'); 
COPY"PADDED (*NAFST-REMUSER'); 
1 COPY-PADDED ('NAFS$T-LOCALUSER'); 
: RETURN_IF_ERROR ($POT (RAB = NAFRAB)); 
4 2 IF _.RMSERR NEQ RMS$_EOF THEN RETURN .RMSERR; 
5 RETURN_IF_ERROR (SCCOSE (FAB = NAFFAB)); 
§ $ ; SCLOSE (FAB = ONFFAB) 


-TITLE CVTNAF Convert Network Proxy File 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 


AAA: ocal Username 
73 55 20 6C 61 63 6F 4C 00000 P.AAA ASCII \Local U \ 
20 20 20 20 20 20 $8 20 BOONE 
AAB: emote Node Name and Username 
4E 20 65 74 6F 6D 65 00020 P.AAB ASCII \R Node N d \ 
75 55 20 64 GE 61 $0 $2 44 F 
46 41 4E 57 45 4€ $020 P.AAC: .ASCII \NEWNAF\ 
54 41 44 2E 00046 P.AAD: .ASCII -DA 
46 41 4E 44 4C 4F QO0O4A P.AAE: .ASCII \OLDNAF\ 
54 41 44 ef 0050 P.AAF: .ASCII P 
$9 $6 0 79 78 6F us 8 54 P.AAH: .ASCII \Proxy file is already converted\ 
6 64 61 65 7 of bag 
007 -BLKB 
4 49h 74 P.AAG: .LONG 31 
30 9 ' 78 -ADDRESS P.AAH 
F C P.AAJ: .ASCI Proxy e has inva ormat 
9 66 20 79 7 7 ae fil invalid f \ 
0 64 69 6C 6 6 6E€ 6 oe pee 
00000018 a9¢ P.AAI: .LONG 39 
00000' A ADDRESS P.AAJ 


-PSECT SOWNS,NOEXE,2 


ge 5 
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WORD 
OOAA ~WOR 
OOAC » WORD 
9 -WOR 
008 - WORD 
008 -BYTE 2 
008 -BYTE 
00B4 -BYTE 
085 -BYTE 
0 -BYTE 
008 -BYTE 
0088 -BYTE 
08 -BYT 
0 OBA - WORD 
00000000* 0008 »ADDRESS P.AAA 
000000 «LONG 
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LONG 
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SCODES,NOWRT,2 
Save R2,R3,R4,R5,R6,R7,RB,RI 
SYSSCLOSE, R9 
SYSSCONNECT, R8 
ONFFAB, R 

#1, SYSSOPEN 
RMSERR, 5$ 
ONFRAS 

#1, SYSSCONNECT 
RMSERR 33 
ONFKEYO+30 
ONFKEY0+46, #64 
ONFKEY14+30, #64 
ONFKEY1#46, #32 
B AAG 
ONFKEY0+30 
NFKEYO+46, #18 
NFKEY1+30, #18 


FKEY1+46, #12 


Wi’ $PUT_OUTPUT 
#2b8hsees RO 


#2, ONE FAB*16 RO 
@ONFFAB+16CROS, NAFALL+16 
NAF FAB 


# SYSSCREATE 
RMSERR, 10 


NAF RAB 
a. SYSSCONNECT 
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? TNAF Convert Network Proxy File 1b-5¢ S$ep-1984 4: VAX-11 seae v4. 13 
~000 . eet re CR Sree ES ent et 
50 A? OF 97 6$: PUSHAB ONFRAB 3 0285 : 
000000006 1 Ff 9A cA LLs #1, SYSS$GET : . ; 
8 £9 OOOKG BLet. ANSERR as : 
0064 8F 00 6E oid 8 5? A MOVCS #0, (SP), #0, #100, NAFBUF : 0288 : 
20 20 FDAG C7 Seal Og 2c oj MOVCS #6, ONFBUF, #32, #32, NAFBUF + 0289 : 
20 20 FDAA C7 aa o¢ 2c e MOVCS #12, ONFBUF+6, #32, #32, NAFBUF+32 : 0290 : 
20 20 FDB6 C7 se o¢ 2c C3 MOVCS #12, ONFBUF+18, #32, #32, NAFBUF+64 + 0291 : 
Pee ES oor Boner PUSHAB * 0292 ; 
000000006 00 o Fe 0D3 CALLS neysseut : : 
BA 0 OODA 7$: BLBS mis F : 
4 9000 RET : ; 
0001827A BF 56 01 DE 8$ CMPL §RMSERR, #98938 + 0294 : 
04 13 O00E BEQL : : 
50 4 i ae MOVL §RMSERR, RO : ; 
4 OOOEA RET : : 
FEDS C7 OF OeB 9$ PUSHAB NAFFAB : 0295 ; 
69 01 FB OOOEF CALLS #1 SYSSCLOSE : ; 
05 29 E OOFe BLBC  $RMSERR, 10$ : : 
7 DD O00F PUSHL : 0296 ; 
69 01 FB 000F7 CALLS #1, SYSS$CLOSE 3 : 
04 OOOFA 10$: RET : 0297 ; 
; Routine Size: 251 bytes, Routine Base: S$CODES + 0000 ; 
: 255 0298 1 : 
; 256 i344 1 END 3 
: 257 0300 0 ELUDOM ; 
; FSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 852 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
+ $PLI7$ 164 NOVEC,NOWRT, RD .NOEXE,NOSHR, LCL. REL. CON.NOPIC.ALIGN(O) 
> $CODE 251 NOVEC,NOWRT, RD, EXE.NOSHR, LCL, REL. CON.NOPIC.ALIGN(O) 
; Library Statistics 
: eowewenn Symbols eoeececen Pages Processing 
: File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBILIB.L32;1 18619 77 0 1000 00:01.9 
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: COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CVTNAF /OBJ=OBJ$:CVTNAF MSRC$:CVTNAF /UPDATE=(ENHS: CVTNAF ) 
Size: 251 code + 1016 data bytes 
Run "tees 


Elapsed Time: 744, 
Lines/CPU Min: 1039 
Lexemes/CPU-Min: 44979 
enety Used: 173 pages 
Compilation Complete 
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